home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / TOOLBOX / RSRCTOOL.DEF < prev    next >
Encoding:
Modula Definition  |  1993-05-02  |  984 b   |  43 lines
  1. DEFINITION MODULE RsrcTool;
  2.  
  3. (*
  4. Resource Tools.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM AES     IMPORT Key,TreePtr,ObjectIndex,StringPtr,BitBlkPtr;
  12. FROM RsrcMgr IMPORT TreeIndex,StringIndex,FreeStringIndex,FreeImageIndex;
  13.  
  14. PROCEDURE TransformBitBlock(Block: BitBlkPtr);
  15.  
  16. PROCEDURE TransformObject(Tree: TreePtr; Index: ObjectIndex);
  17.  
  18. #if proc_const
  19. CONST TransGImage = TransformObject;
  20. #else
  21. VAR TransGImage: PROCEDURE(TreePtr,ObjectIndex);
  22. #endif
  23.  
  24. PROCEDURE TransformTree(Tree: TreePtr);
  25.  
  26. PROCEDURE NumberOfTrees(): TreeIndex;
  27.  
  28. PROCEDURE TreeArray(T: TreeIndex): TreePtr;
  29.  
  30. PROCEDURE RsrcLoad(REF Name: ARRAY OF CHAR): BOOLEAN;
  31.  
  32. PROCEDURE GetTreePtr(TreeNo: TreeIndex): TreePtr;
  33.  
  34. PROCEDURE GetStringPtr(StringNo: StringIndex): StringPtr;
  35.  
  36. PROCEDURE GetFreeStringPtr(FreeStringNo: FreeStringIndex): StringPtr;
  37.  
  38. PROCEDURE GetFreeImagePtr(FreeImageNo: FreeImageIndex): BitBlkPtr;
  39.  
  40. PROCEDURE SpecialChar(Code: Key): CHAR;
  41.  
  42. END RsrcTool.
  43.